﻿#Region ">> Imports <<"
Imports MySql.Data
Imports MySql.Data.MySqlClient
Imports DTO
Imports SQL
#End Region
#Region ">> Classes <<"

Public Class DALUsuarios

#Region ">> Instancias <<"
    Private MySQL As New MySQLConexao
    Private cmd As New MySqlCommand
#End Region
#Region ">> Sub        <<"

    Public Sub DALUsuarios()

    End Sub
    Public Sub InsertUsuarios(ByVal usuario As DTOUsuarios)

        cmd.Connection = MySQL.Connection
        cmd.CommandText = "INSERT INTO Usuarios(Nome,Usuario,Senha,Endereco,Bairro,CEP,Cidade,UF,Empresa,Status) VALUES (@Nome,@Usuario,@Senha,@Endereco,@Bairro,@CEP,@Cidade,@UF,@Empresa,@Status)"
        cmd.Parameters.AddWithValue("@Nome", usuario.Nome)
        cmd.Parameters.AddWithValue("@Usuario", usuario.Usuario)
        cmd.Parameters.AddWithValue("@Senha", usuario.Senha)
        cmd.Parameters.AddWithValue("@Endereco", usuario.Endereco)
        cmd.Parameters.AddWithValue("@Bairro", usuario.Bairro)
        cmd.Parameters.AddWithValue("@CEP", usuario.CEP)
        cmd.Parameters.AddWithValue("@Cidade", usuario.Cidade)
        cmd.Parameters.AddWithValue("@UF", usuario.UF)
        cmd.Parameters.AddWithValue("@Empresa", usuario.Empresa)
        cmd.Parameters.AddWithValue("@Status", usuario.Status)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
    End Sub
    Public Sub UpdateUsuarios(ByVal usuario As DTOUsuarios)
        cmd.Connection = MySQL.Connection
        cmd.CommandText = "UPDATE Usuarios SET Nome=@Nome,Usuario=@Usuario,Senha=@Senha,Endereco=@Endereco,Bairro=@Bairro,CEP=@CEP,Cidade=@Cidade,UF=@UF,Empresa=@Empresa,Status=@Status WHERE CodUsuario = @CodUsuario"
        cmd.Parameters.AddWithValue("@CodUsuario", usuario.CodUsuario)
        cmd.Parameters.AddWithValue("@Nome", usuario.Nome)
        cmd.Parameters.AddWithValue("@Usuario", usuario.Usuario)
        cmd.Parameters.AddWithValue("@Senha", usuario.Senha)
        cmd.Parameters.AddWithValue("@Endereco", usuario.Endereco)
        cmd.Parameters.AddWithValue("@Bairro", usuario.Bairro)
        cmd.Parameters.AddWithValue("@CEP", usuario.CEP)
        cmd.Parameters.AddWithValue("@Cidade", usuario.Cidade)
        cmd.Parameters.AddWithValue("@UF", usuario.UF)
        cmd.Parameters.AddWithValue("@Empresa", usuario.Empresa)
        cmd.Parameters.AddWithValue("@Status", usuario.Status)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
    End Sub
    Public Sub DeleteUsuarios(ByVal usuario As DTOUsuarios)
        cmd.Connection = MySQL.Connection
        cmd.CommandText = "Delete Usuarios WHERE CodUsuario = @CodUsuario"
        cmd.Parameters.AddWithValue("@CodUsuario", usuario.CodUsuario)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
    End Sub

#End Region
#Region ">> Funções    <<"
    Public Function GetTabelaUsuarios() As DataTable
        cmd.Connection = MySQL.Connection
        cmd.CommandText = "SELECT * FROM Usuarios"
        Dim adpt As New MySqlDataAdapter(cmd)
        Dim dt As New DataTable
        adpt.Fill(dt)
        adpt.Dispose()
        cmd.Dispose()
        Return dt
    End Function
#End Region


End Class
Public Class DALGrupoDeUsuarios

End Class
Public Class DALLoginUsuarios
#Region ">> Instancias <<"
    Private MySQL As New MySQLConexao

#End Region
    Public Function LogarUsuario(ByVal usuario As DTOLoginUsuarios) As Boolean
        Dim logado As Boolean = False
        Dim cmd As New MySqlCommand
        cmd.Connection = MySQL.Connection
        cmd.CommandText = "SELECT P01,P02,P03,P04,P05,P06 FROM tp001 WHERE P04=@Usuario AND P05=@Senha AND P06=0;"
        cmd.Parameters.Add("@Usuario", MySqlDbType.VarChar, 50).Value = usuario.Usuario
        cmd.Parameters.Add("@Senha", MySqlDbType.VarChar, 25).Value = usuario.Senha
        Try
            If cmd.ExecuteReader.Read Then
                logado = True
            Else
                logado = False
            End If
        Catch ex As Exception
        End Try
        cmd.Clone()
        cmd.Dispose()
        Return logado
    End Function
End Class

#End Region


